'-----関東Julia URLを開く-----
Private Sub 関東Julia_Click()
Dim JULIA_KANTO_URL As String
If (Me.MST_JULIA_KANTO = "") Or (IsNull(Me.MST_JULIA_KANTO) = True) Then
    If MsgBox("関東Juliaが未入力です！", vbOKOnly, "未入力エラー") = vbOK Then
        Me.MST_JULIA_KANTO.SetFocus
        Exit Sub
    End If
Else
    JULIA_KANTO_URL = "" & "https://list_id=" & Me.MST_JULIA_KANTO & ""
    Application.FollowHyperlink JULIA_KANTO_URL
End If
End Sub

'-----関西Julia URLを開く-----
Private Sub 関西Julia_Click()
Dim JULIA_KANSAI_URL As String
If (Me.MST_JULIA_KANSAI = "") Or (IsNull(Me.MST_JULIA_KANSAI) = True) Then
    If MsgBox("関西Juliaが未入力です！", vbOKOnly, "未入力エラー") = vbOK Then
        Me.MST_JULIA_KANSAI.SetFocus
        Exit Sub
    End If
Else
    JULIA_KANSAI_URL = "" & "https://list_id=" & Me.MST_JULIA_KANSAI & ""
    Application.FollowHyperlink JULIA_KANSAI_URL
End If
End Sub

'-----九州Julia URLを開く-----
Private Sub 九州Julia_Click()
Dim JULIA_KYUSYU_URL As String
If (Me.MST_JULIA_KYUSYU = "") Or (IsNull(Me.MST_JULIA_KYUSYU) = True) Then
    If MsgBox("九州Juliaが未入力です！", vbOKOnly, "未入力エラー") = vbOK Then
        Me.MST_JULIA_KYUSYU.SetFocus
        Exit Sub
    End If
Else
    JULIA_KYUSYU_URL = "" & "https://list_id=" & Me.MST_JULIA_KYUSYU & ""
    Application.FollowHyperlink JULIA_KYUSYU_URL
End If
End Sub